Magnum One

home *** CD-ROM | disk | FTP | other *** search

/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / amac34.arc / RFRM23.QM < prev next >

Wrap

Text File | 1991-02-16 | 58KB | 1,261 lines

* (RFRM23).QM *┌──────(INDEX) Macros to Reformat Blocks, Paragraphs and Documents ───────────┐ *│ Bytes *│@(F1) Right Justifies DOCUMENT 119<change *│@(F2) Right Justifies DOCUMENT, Screen preview 14 *│@(F4) Removes Right Justification from LINE or BLOCK 87 *│@(F5) Removes Right Justification from DOCUMENT 96 *│@(F7) Deletes ALL BLANK lines in document 23 *│@(F8) Deletes all but single space BLANK lines in document 24 *│ *│@(1) Adds asterisk and space in front of BLOCK 27 *│@(t) Adds asterisk and space in front of BLOCK (Tim Farley) 44 *│@(3) Adds asterisk and space in front of BLOCK or PARAGRAPH 18 *│@(6) Adds asterisk and one space in column 1 12 *│@(5) Deletes first two characters of line 11 *│@(4) Deletes asterisk and one space in column 1 25 *│@(7) Deletes asterisk and ALL space at beginning of line 17 *│@(2) Deletes asterisk and one space in front of BLOCK 11 *│@(9) COUNTS number of words in a document, words=letters/numbers 50 *│@(0) COUNTS number of words in a document, words sep. by spaces 85 *│@(n) COUNTS number of characters in a document 95 *│ *│^(3_) Formats PARAGRAPH, fast and small 8 *│^(0_) Formats PARAGRAPH 60 *│^(5_) Formats DOCUMENT with blank lines forming PARAGRAPHS 26 *│^(8_) Formats QMAC txtfile BLOCK with asterisks in col. 1 61 *│^(9_) Formats BLOCK. Must position cursor at BLOCK begin 62 *│^(7_) Formats Message Reader Paragraph (Tim Farley) 132 *│ *│^(b) Replace "period space" w/ "period two_spaces" - PARAGRAPHS 54 *│^(c) Replace "period space" w/ "period two_spaces" - DOCUMENT 44 *│ *│^(F9_) Make a COMMA delimited file (Sammy Mitchell) 37 *│^(F10_)"Break apart" a COMMA delimited file (Sammy Mitchell) 54 *│ *│@(h) Select Index item with cursor line, then <enter>. 47 *│ *│(Index) - How to locate macro or item below from Index using @h *│(Description) - Reformat Macros *│(Macros) - Reformat Macros *│(Other) Macros - not included *│(Test) Paragraph To Reformat *│(Version) history *└────────[ be sure to leave at least one blank line at end of Index ]────────┘ * (Description): * (RFRM23).QM are macros to reformat QEDIT blocks, paragraphs, and * documents. Asterisks are also added and deleted in front of lines, * block, and paragraphs. Number of words and characters in a document * can also be counted. Comma delimited files can also be made and * "broken apart". Documents can formatted with right justification. * * If column width of the unformatted paragraphs and blocks are greater * than 80 columns, there must be enough blank lines for ^8, 9 & 0 to * paste the reformatted text back and not overlap unformatted areas. In * other words, BE CAREFUL! * * For faster macro execution, replace "C:" with your ram drive. * * Insert and AutoIndent should be ON. * * (Other) Macros available: See ALLMACRO.INF. * (Index) Use; * * To locate a macro or item in this file, press @h, place the cursor * line on the desired item in the Index above, and press <enter>. * See BOOK15.QM for more details. * These macros require "QEdit and QMAC v2.1, February, 1990" or later. * To BEGIN, just type "START RFRM" <Enter>. All pertinent files will be * loaded in the "Ring" for viewing, and RFRM23.MAC is read. * Alternatively, type "START RFRM 0" <Enter> and the disk copies of all * files in the "Ring" will be loaded ready for editing, saving time. * (Macros):------------ * ┌───────────────────────────────────────────────────────────────────┐ * │@(1) Place asterisk and space in column 1 in front of marked block │ * └───────────────────────────────────────────────────────────────────┘ * To run, first mark and close a block with markblockbegin and * markblockend, markline, or dropanchor. Blocks may contain blank * lines. No column blocks, please. The cursor may then be positioned * anywhere to run. Press Alt and 1 at the same time. An asterisk and a * space are placed in column 1 in front of the marked block only. * Marked block does NOT have to be a paragraph as in Alt_2. If a block * is not marked, the cursor line is treated as a block, and an asterisk * and space are placed in column 1 the same as done with Alt_6. @1 macrobegin cut * cut block to scrap editfile "$" return * load $ (temp file) quit * quit if in ring editfile return * reload paste * paste block to $ NEXT: * come here until done begline * stay in column 1 "* " * put asterisk space in col 1 cursordown * move down to next line jtrue NEXT: * if not done go to NEXT begfile * go to begfile $ markblockbegin * get line 1 col 1 in block copy * get block w/asterisks to scrap quit * quit $ paste * put block back with asterisks END: * * 27 bytes Tue 09-11-1990 19:28:29 *┌──────────────────────────────────────┐ *│ @(t) Alternate version of @1 │ *└──────────────────────────────────────┘ * Here's an alternate version of Alt_1 from Tim Farley of SemWare that * seems to do the same thing. It's faster, runs smoother, but is a * little larger if that's important. I feel Tim came up with a better * way to do the same thing by using shiftright and fillblock. Use * whichever you prefer that get's the job done for you. * * PN>I tried out two dBase commenting macros (from Tom Hogshead) last night. * PN>Neither of them does quite what I'm trying to achieve. * PN> * PN>What I need to do is comment out (i.e., put an asterisk in front of) * PN>each line in a blocked area. * * Here's an alternate version that uses the column marking ability, * ShiftRight, and FillBlock to do the job. * TH>When marking a block with markblockbeg and markblockend, it adds one * TH>extra line to the bottom of the block. Adding cursorup in line #11 * TH>seems to get things to comment out the block as originally marked. * TH>Line blocks work OK. * * Hmmmm....I'll try it out. * * Ooops! I guess I broke part of it in my last minute tweaking. * * Here is a version that works right in *all* cases, including a * single line: * * DBASE COMMENT OUT MACRO * * Mark a block (doesn't matter if it is a char, line or column block). * Hit this key, and all the lines in the block will be commented out * with a "* " at the beginning of the line. * * After it is done, the block will be left marked as a line block, * and the cursor will be at the top of the block. * * Correctly detects case where you are in the middle of marking, * and also the case where no block is marked. * @t MacroBegin GotoBlockBeg * Has block been closed? GotoBlockEnd JTrue doit: * if cursor moved, go ahead MarkLine * no movement? close block GotoBlockEnd JFalse end: * no movement? no block! quit. doit: EndLine BegLine * <----NEW for single line case GotoBlockEnd * Remember end of the block GotoBlockBeg * But go to beginning MarkLine * Mark as line from here... PrevPosition * ...to the previous end of block. MarkLine BegLine * <----NEW for column block case ShiftRight ShiftRight * Two characters over please GotoBlockEnd * Remember end of the block GotoBlockBeg * But go to beginning MarkColumn * Start marking a column PrevPosition * ...to end of previous block BegLine * But only in column 1 of these lines MarkColumn * ...and finish marking. FillBlock "*" Return * Fill Column 1 with Stars! GotoBlockEnd * Remember end of the block GotoBlockBeg * But go to beginning MarkLine PrevPosition MarkLine * Re-mark as a line block GotoBlockBeg * And leave us at the top. Jump done: end: UnMarkBlock done: * * 44 bytes Fri 08-24-1990 16:23:16 (line added TH ) * Interestingly enough, since "*" is also a comment mark for QEdit * macros, you can use this to comment out lines in QEdit macros * too! * * There is one special case where this macro can do something odd, * and that is if you mark a single line as a block and comment it * out. But since a single line can be commented out just by * hitting HOME and typing "*", I doubt that will be a problem. * * One nice side effect: it leaves the lines marked as lines, so if * you want to *uncomment* them, just hit ShiftLeft twice. * * If you remove the comments and reformat, I think you can fit this * in QCONFIG.DAT. * * --Tim Farley * ┌────────────────────────────────────────────────────────────────┐ * │@(2) Deletes asterisk and one space in front of marked block │ * └────────────────────────────────────────────────────────────────┘ @2 macrobegin gotoblockbeg * block? JFalse END: * no block! end shiftleft shiftleft * delete asterisk and space unmarkblock * unmarkblock END: * * 11 bytes Wed 08-22-1990 10:29:17 * ┌────────────────────────────────────────────────────────────────────┐ * │@(3) Places an asterisk and space in front of block that IS a │ * │ paragraph and also in front of any paragraph that is NOT marked │ * │ as a block from the cursor to the end of the paragraph. │ * └────────────────────────────────────────────────────────────────────┘ * * To run, first either mark a paragraph as a block with markblockbegin * and markblockend or position the cursor at the beginning of a * paragraph in column 1. After loading the macro, press Alt and 3 at * the same time. An asterisk and a space are placed in column 1 in * front of the block, or the paragraph from the cursor to the end * of the paragraph. Remember, a paragraph is defined as having a * blank line at the beginning and end. * @3 macrobegin gotoblockbeg * go to block begin NEXT: * endline begline * end if line blank jfalse END: * if line blank, go to end "* " * put asterisk space in col 1 cursordown * move down to next line jump NEXT: * cycle until done END: * * * 18 bytes Mon 08-20-1990 22:19:35 * ┌───────────────────────────────────────────────────────────┐ * │@(4) Deletes asterisk and SINGLE space at beginning of line│ * └───────────────────────────────────────────────────────────┘ * Use to remove asterisk and space inserted with Alt_6. Lines with * no asterisk are not changed. * @4 macrobegin START: unmarkblock * unmark any blocks begline * go to begline markcolumn * mark it cursorright * go to column 2 find "*" return * find asterisk space "BL" return * back in block only jfalse NEXT: * if found delch * delete asterisk delch * delete space NEXT: * come here if no astk in col 1 cursordown * down to next line begline * begline unmarkblock * unmark * * 25 bytes Tue 08-21-1990 13:30:16 * ┌─────────────────────────────────────────────────────────┐ * │@(5) Deletes first two characters at beginning of line │ * └─────────────────────────────────────────────────────────┘ * Lines without an asterisk will also have the first two spaces * deleted. This macro is considerably smaller than @4 (11 vs 35 bytes), * but it is not quite as safe; @4 will NOT erase the first two * characters unless the first one is an asterisk. @5 macrobegin START: unmarkblock * unmark begline * go to begline markline * mark line shiftleft * shift char 1 out of block shiftleft * shift char 2 out of block unmarkblock * unmark line cursordown * down to next line * * 11 bytes Tue 09-11-1990 17:33:17 * ┌──────────────────────────────────────────────────────┐ * │@(6) Adds asterisk and one space at beginning of line │ * └──────────────────────────────────────────────────────┘ * Useful in preparing txtfiles for QMAC. To run, just press Alt_6 and an * aste isk and blank space are inserted in column 1 and 2 in front of * any other text on the line. Use Alt_4 or 5 to remove asterisk and * space inserted with this macro. * @6 macrobegin unmarkblock begline "* " cursordown begline * * 12 bytes Mon 07-30-1990 11:03:14 * ┌───────────────────────────────────────────────────────────┐ * │@(7) Deletes asterisk and any space at beginning of line │ * └───────────────────────────────────────────────────────────┘ * To run, press Alt_7, and the asterisk in column 1 on the cursorline * and all space up to the first word on the line is deleted. This * macro erases too much if there are two asterisks and no letters on * same line. * @7 macrobegin unmarkblock * get ready begline * go to begline delch * delete first asterisk endline begline * check if anything else on line jfalse NEXT: * if line blank, go to next markcolumn * otherwise, mark begline wordright * go to first word on line cursorleft * get cursor off word deleteblock * delete all space to beginline NEXT: * cursordown * cursordown and end * * 17 bytes Mon 07-30-1990 11:03:26 * ┌────────────────────────────────────────────────────────────────────┐ * │@(9) Macro To Count Words In Document, Words are letters and numbers│ * └────────────────────────────────────────────────────────────────────┘ * This macro counts the number of words in a document. A "word" is at * least one letter or number separated by a space or the following word * separators: * !@#$%^&*'()+|-=\,./;'[]<>?:"{} * If it's important to you that words be considered as "any string * separated by at least one space", macro @0 below is the macro to * use. The @9 macro counts words like "can't" as two words; @0 counts * them as one word. * Test macro using the calibrated file WORD (19 words). * ----------------------------------- * @9 Macro To Count Words In Document * ----------------------------------- * [ Number of WORDS in document ] = [ Number of LINES in temp file ] * @9 Macrobegin * *----Be sure last line is blank---------* endfile begline * Check for blank line at end jfalse START: addline * If last line is NOT blank, * test fails, then addline *----Copy Words to Scratch Buffer-------* START: begfile insertline * Insert blank line at top to * be sure to find first word wordright markword * Mark first word cursorup delline * Delete blank line storescrbuff "1" return * Store word to scratch buffer COUNT: cursordown * Check if on last line jfalse GETCOUNT: cursorup * If can't cursor down, must * be on last line, go to * GETCOUNT, or cursorup *ELSE WordRight MarkWord * Move to next word and mark it jfalse COUNT: * If at endline, no word exists * so COUNT again *ELSE appendscrbuff "1" return * Append word to scratch jump COUNT: * and go-to COUNT again *----Get Word Count---------------------* GETCOUNT: editfile "!" return quit * Quit temp file editfile return * Load temp file to count words getscrbuff "1" return * Make list of words unmarkblock endfile * WORD COUNT = # LINES * * 50 bytes Sat 10-13-1990 03:18:33 * ┌─────────────────────────────────────────────────────────────┐ * │@(0) Counts words in a document, words separated by spaces │ * └─────────────────────────────────────────────────────────────┘ * @0 differs from @9 in that a "word" with @0 is considered any string * separated by at least one space. @9 macro considers a "word" to be at * least one letter or number separated by a space or the following word * separators: !@#$%^&*'()+|-=\,./;'[]<>?:"{} ... @9 counts words like * "can't" as two words; @0 counts them as one word. * * @0 is a little longer and slower than @9, but if it's important to * you that words be considered as "any string separated by at least * one space", this is the macro to use. * Test macro using the calibrated file WORD (46 words). * ----------------------------------- * @0 Macro To Count Words In Document * ----------------------------------- * [ Number of WORDS in document ] = [ Number of LINES in temp file ] * @0 Macrobegin *----Toggle Insert ON-------------------* insertline "a" cursorleft "a" * Insert test line endline jtrue WASON: * If not at endline-Insert is ON toggleinsert Jump WASOFF: * Or Insert is off-toggle ON WASON: cursorleft * Clean up cursor movement WASOFF: cursorleft delline * Clean up cursor movement *----Copy Document to Temp File---------* BegFile markblockbegin * Mark document EndFile markblockend * editfile "!" return * Load temp file killfile quit editfile return * Kill/quit/load temp file copyblock unmarkblock * Copy doc to temp file endfile addline begfile * Add blank line at end *----Split Words One Word Per Line------* COUNT1: Find " " Return Return * Find first space COUNT2: Return * Put next word on next line NOSPACE: CursorDown * Move down to next line jfalse DELBLANKLINES: * If can't move down must be * on last line, then begin to * delete all blank lines cursorup * Move back up one line repeatfind * Find another space jTrue COUNT2: * Put next word on next line *----Delete Blank Lines-----------------* DELBLANKLINES: begfile * Get to begin of file CHK4BLANK: endline begline * Check if line has text jtrue NOTBLANK: * If so, go to NOTBLANK delline * Or line is blank, delete it jtrue CHK4BLANK: * Go check next line NOTBLANK: endpara *ELSE Move to pargraph end cursordown * Move down to next line jfalse GETCOUNT: * If on last line, GETCOUNT jump CHK4BLANK: * If not, check for more blank lines *----Get Word Count---------------------* GETCOUNT: findreplace " " return "|" * Remove all extra spaces backspace return "GN" return * makebotofscreen * WORD COUNT = # LINES * * 89 bytes Sat 10-13-1990 02:44:52 * 85 bytes Mon 10-15-1990 21:58:35 * ┌────────────────────────────────────────────────────────┐ * │@(n) Counts the number of characters in a document │ * └────────────────────────────────────────────────────────┘ * This macro counts the number of characters in a document. After * running, the byte size of a modified document file with all spaces * removed is shown in col. 1 on the last line. Subtract 2 x number of * lines from the byte size to get the number of characters. * Test macro using the calibrated file WORD (138 -2 x 6 = 126 chars.) * ---------------------------------------------------- * @n Macro To Count Number Of Characters In A Document * ---------------------------------------------------- @n Macrobegin *----Copy Document to Temp File---------* BegFile markblockbegin * Mark document EndFile markblockend * editfile "!" return * Load temp file killfile quit editfile return * Kill/quit/load temp file copyblock unmarkblock * Copy doc to temp file *----Remove All Spaces------------------* findreplace " " return "|" * Remove single space globally backspace return "GN" return * *----Delete Blank Lines-----------------* DELBLANKLINES: begfile * Get to begin of file CHK4BLANK: endline begline * Check if line has text jtrue NOTBLANK: * If so, go to NOTBLANK delline * Or line is blank, delete it jtrue CHK4BLANK: * Go check next line NOTBLANK: endpara *ELSE Move to pargraph end cursordown * Move down to next line jfalse GETCOUNT: * If on last line, GETCOUNT jump CHK4BLANK: * If not, check for more blank lines *----Get Number of Characters-----------* GETCOUNT: * savefile * Save tmmp file to get size DOS "dir " currentfilename * Get size with Dir ">c:$" return return * Save DIR list to temp c:$ editfile "c:$" return * Load DIR listing of temp file gotoline "4" return * Drop down to file line wordright markword copy * Get size to scrap killfile quit * Kill/quit c:$ editfile "!" return killfile * Load & kill temp file begline paste makebotofscreen * Character Count = Byte Size * minus 2 x Number of Lines * 95 bytes Sat 10-13-1990 11:27:13 * ┌─────────────────────────────────────────────────────────────────────┐ * │^(3_) Formats a paragraph. (Macro has been around a long time) │ * └─────────────────────────────────────────────────────────────────────┘ * 04 macrobegin cursordown * move down one line prevpara * get to beginning of paragraph wrappara * reformat nextpara * go to begin next paragraph * * 8 bytes Wed 08-01-1990 10:47:36 * ┌─────────────────────────────────────────────────────────────────────┐ * │^(5_) Formats complete document with blank lines forming paragraphs │ * └─────────────────────────────────────────────────────────────────────┘ * 06 MacroBegin unmarkblock * unmark begfile * get to file begin setrmargin "69" return * set new right margin FORMAT: * jfalse FINISH: * no more para? go to FINISH WrapPara * reformat NextPara * get to begin next paragraph jump FORMAT: * FINISH: * no more paragraphs setrmargin "80" return * reset right margin * * 26 bytes Wed 09-12-1990 16:47: *┌─────────────────────────────────────┐ *│^(7_) Format Message Reader Paragraph│ *└─────────────────────────────────────┘ * Here's a handy macro from Tim Farley of SemWare to reformat a message * reader paragraph. Remember, paragraphs are reformated to the width * of the right margin setting, so set as needed. * * ============================================================================== * Date: 10-01-90 (19:09) Number: 3041 SemWare Support BBS * To: DAN SNAPPER Refer#: 3028 * From: TIM FARLEY Read: YES * Subj: Message reformat macro Conf: (21) ILink * ------------------------------------------------------------------------ * DS> Does anyone have a macro to reformat a quoted 'off-line' * DS> message paragraph and then reinsert the quotes back? * DS> * DS> * DS> * * Here it is: * * * Reader Paragraph Reform * Mark a line block, hit this key, and it will reform the text, leaving * all "II>" quoting on the left alone. * * Assumes that ">" is the last character of the "quoting" mark. * Also assumes that WordWrap is currently on when you hit it, * and that there is a currently marked block. * 08 MacroBegin OneWindow GotoBlockBeg GotoBlockEnd JTrue doit: MarkLine GotoBlockEnd doit: ToggleWordWrap EndLine #254 ToggleWordWrap GotoBlockBeg GotoColumn "16" Return Find ">" Return "BL" Return JTrue foundit: BegLine foundit: CursorRight UnmarkBlock MarkColumn Find #254 Return "N" Return GotoColumn "512" Return MarkColumn BegLine GotoBlockBeg Cut MarkLine CopyBlock CopyBlock CopyBlock UnmarkBlock HorizontalWindow EditFile "$$$$$$$$.tmp" Return BegFile BegLine * Top of files in case it was already here InsertLine InsertLine * ?? Paste UnMarkBlock * put block in place EndFile AddLine BegFile * mandatory blank line on end more: WrapPara * wrap each para JTrue more: * until none left DelLine BegFile BegLine Find Return Return * find our goofy char again DelCh * and delete it GotoColumn "512" Return MarkColumn BegFile BegLine MarkColumn Cut Quit PrevWindow OneWindow Paste GotoBlockEnd CursorDown BegLine UnMarkBlock * * 132 bytes Tue 10-02-1990 16:51:06 (added TH) * This macro is too long for QCONFIG, you'll have to use QMAC to * compile it. Then put the compiled macro files in some directory, * and add the following option to the command line your reader runs * QEdit with: * * /Ld:\dir\filename.ext * * where D:\DIR\FILENAME.EXT is the full drive, path, and name of * the compiled binary macro file. * * I've used this macro myself to reformat quotes, for over a year * now. * * --Tim Farley * SemWare Technical Support * ┌─────────────────────────────────────────────────────────────────────┐ * │^(8_) Formats QMAC txtfile block with asterisk in column 1 │ * └─────────────────────────────────────────────────────────────────────┘ * To run, position the 'cursor line' on the first line of the block to * reformat. Press Ctl_8, then cursor down to bottom of block to * reformat. To reformat, press 'Enter' when the block is marked. This * macro differs from Ctl_9 in that the block does not include the * asterisk and blank space; in Ctl_9 the block starting position is * selected by the starting position of the cursor line. This macro also * differs from Ctl_0 which formats a paragraph from first blank line * which has no text or asterisk on line to last blank line. * * 09 macrobegin unmarkblock * get ready gotocolumn "512" return * get all block to format markcolumn * mark begin of block begline * start at line begin wordright * get to first word on line cursordown * position to cursor down makectrofscreen * see better pause * cursor to end, then 'Enter' markcolumn * mark end of block gotoblockbeg * Get to block begin JFalse END: * No block? End cut * Get into scrap editfile "C:$" return * load C:$ (temp file) paste * paste block to C:$ setrmargin "69" return ** * set rt margin to 69 ** change "69" as needed wrappara * format block setrmargin "80" return * reset rt margin to 80 begfile * get to block begin markcolumn * mark endfile * mark endblock gotocolumn "69" return ** * get all block marked ** change "65" as needed copy * get formatted block to scrap killfile quit * kill/quit C:$ pasteover * Put back formatted, marked makectrofscreen * better view END: * * 61 bytes Tue 09-11-1990 19:21:48 * ┌─────────────────────────────────────────────────────────────────────┐ * │^(9_) Formats Block. Must position cursor at beginning of block │ * └─────────────────────────────────────────────────────────────────────┘ * To run, position the 'cursor' at the beginning of the block to * reformat. Press Ctl_9, then cursor down to bottom of block to * reformat. Press 'Enter' when the block is marked. This macro differs * from Ctl_8 in that the starting position of the block to be * reformatted is selected by the starting position of the cursor; in * Ctl_8 the block starting POSITION is selected by the starting * position of the cursor line. * * 10 macrobegin unmarkblock * get ready gotocolumn "512" return * get all block to format markcolumn * mark begin of block prevposition * begline * prevposition * makectrofscreen * see better cursordown * position to cursor down pause * cursor to end, then 'Enter' markcolumn * mark end of block gotoblockbeg * Get to block begin JFalse END: * No block? End cut * Get into scrap editfile "C:$" return * load C:$ (temp file) paste * paste block to C:$ setrmargin "69" return ** * set rt margin to 69 ** change "69" as needed wrappara * format block setrmargin "80" return * reset rt margin to 80 begfile * get to block begin markcolumn * mark endfile * mark endblock gotocolumn "69" return ** * get all block marked ** change "69" as needed copy * get formatted block to scrap killfile quit * kill/quit C:$ pasteover * Put back formatted, marked makectrofscreen * better view END: * * 62 bytes Tue 09-11-1990 19:09:31 * This is a test block. To format, place the "cursor" on "t" in * in "this" on line 1. Then press Ctl_9 and cursor down to * block end. When the block has been marked press * 'Enter'. * Asterisks need not be removed. * ┌─────────────────────────────────────────────────────────────────────┐ * │^(0_) Formats Paragraph Only. Keeps in original indented position │ * └─────────────────────────────────────────────────────────────────────┘ * To run, place cursor line anywhere in a paragraph, and press Ctl_0. * This macro yields the same formatted paragraph as does Ctl_3 if * the right margin is set to 69 in the QEdit menu or in QCONFIG.DAT. * This macro is the starting point for putting together macros Ctl_8 * and 9. If there are asterisks in column 1 they are also formatted as * part of the paragraph. 11 macrobegin unmarkblock * get ready cursordown * get into paragraph prevpara * get to paragraph begin markcolumn * mark column endpara * get to paragraph end gotocolumn "512" return * get all paragraph in block markcolumn * mark paragraph gotoblockbeg * Get to paragraph begin JFalse END: * No block? End cut * Get into scrap editfile "C:$" return * load C:$ (temp file) paste * paste block to C:$ setrmargin "69" return ** * set rt margin to 69 ** change "69" as needed wrappara * format block setrmargin "80" return * set rt margin to 80 begfile * get to block begin markcolumn * mark endfile * mark end block gotocolumn "69" return ** * get all block marked ** change "69" as needed copy * get formatted block to scrap killfile quit * kill/quit C:$ paste * Put back formatted, marked * pasteover * Put back formatted, marked begline makectrofscreen * better view END: * * 60 bytes Tue 09-11-1990 19:12:08 *****************************TEST PARAGRAPH************************************ This is a (test) paragraph. Place the cursor line anywhere in this paragraph to run. Press Ctl and 0 at the same time. Be sure AutoIndent is ON. (Long line for test )==>>>>>>>>>>>>>> ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** ******************************TEST PARAGRAPH*********************************** *┌───────────────────────────────────────────────────────────────────┐ *│@(h) Finds first word on cursor line marked in document below │ *└───────────────────────────────────────────────────────────────────┘ * * @h macro has 2 steps: * * 1. Press @ and h at the same time. An ! shows at the * end of the top line. Cursor down to desired line in Index. * * 2. Press Enter. The macro first erases the !, and * then finds the first word on the cursor line in the document * below marked with (...). * * See BOOK15.QM for more details. * @h macrobegin unmarkblock * unmark any marked blocks begfile endline * go to file begin endline "!" * put ! at endline begline find "!" return return begline * highlight ! pause * pause for Index selection wordright markword * mark first word on line copy * copy word to scrap buffer begfile * begfile find "!" return return delch * find & delete ! endpara * go to end of Index makectrofscreen * cursor line center of window find "(" paste ")" return "I" return * find first marked word in doc jfalse NOMARK: begline * if mark found go to begline jump END: NOMARK: begfile * if no mark found go to begfile END: * * 47 bytes Fri 09-14-1990 14:06:26 *┌───────────────────────────────────────────────────────────────────┐ *│ @(F1) Right Justify to file with same prefix, ".rj" extension │ *└───────────────────────────────────────────────────────────────────┘ * Macros @F1 and @F2 use the right justification program RJ.COM which is * included and must be located in current directory or path. See below * for documentation of RJ.COM. * @F1 macrobegin Unmarkblock Insertline Begfile * Insert temp line with | Dropanchor Currentfilename * CurrentFileName marked | Find "." Return "B" Return * Find dot backwards | jtrue HASEXT: * If dot found, file has extn. | * and go to HASEXT | * ELSE | Endline "." Cursorleft * Add ".", file has NO extn. | HASEXT: * | Cursorright Deltoeol "rj" * THEN add "rj" after dot Cut Savefile * Cut name.rj to scrap/SaveFILE| DOS "RJ " Currentfilename * Right justify file ">" Paste Return Return * Editfile Paste Return Quit * Editfile Return * Load justified file FIRSTWORD: * FIRSTWORD loop removes right * justification from last line * of paragraph, often neater! EndPara Begline * Get to end of paragraph Shiftright Wordright * Put cursor on start of first Shiftleft Cursorleft * word on line Markcolumn Endline Markcolumn * Marks from first word to eol Makebotofscreen FindReplace " " Return " " Return "LN" Return begline FindReplace " " Return " " Return "LN" Return begline FindReplace " " Return " " Return "LN" Return Unmarkblock NextPara * Get to begin next paragraph jfalse FINISH: * No more para? go to FINISH jump FIRSTWORD: * and to last line FINISH: * No more paragraphs Begfile * * * 126 bytes Tue 12-04-1990 20:55:28 * 119 bytes Fri 02-15-1991 12:50:02 * ......................Documentation for RJ.COM................... * * USAGE: RJ <INFILE> { PRINT_MARGIN F S } * * WHERE: 0=< PRINT_MARGIN =<40 Default = 0 enter like: 8 * F FILTERS control chars Default = OFF enter like: F * S SUPPRESS Line Feeds after CR Default = OFF enter like: S * * PURPOSE: RJ Right Justifies your printer output, making it look * professional. RJ right justifies text files by imbedding blanks * between words. It is compatible with VDE or any other ASCII text * editor. Public domain. * * METHOD: RJ imbeds spaces between words. It calculates the longest * line in the file (40 to 255 char), then justifies shorter lines (up * to 15% shorter ). Non-printable control characters are not counted * for formatting purposes, so leave them in if you wish. Carriage * Returns, Line Feeds, Form Feeds, and Tabs are always processed * normally and printed. Indenting at the beginning of the line is * disregarded, but any line with 3+ IMBEDDED spaces, or any line with * Tabs is not justified. This leaves tables, charts, etc. intact. * * HINTS: All parameters except INFILE are optional and they may be * entered in any order; the defaults are above. Note that the input file * is left unalterd; output defaults to the screen. This allows you to * preview your printer output. To print or copy your right justified * file, use the DOS redirection operator: RJ REPORT.TXT F 6 > PRN. Save * your normal parameters in a batch file. *┌──────────────────────────────────────────┐ *│ @(F2) Right Justify, screen preview │ *└──────────────────────────────────────────┘ * Macros @F1 and @F2 use the right justification program RJ.COM which is * included and must be located in current directory or path. See above * for documentation of RJ.COM. * @f2 Macrobegin Savefile DOS "RJ " Currentfilename Return * * 14 bytes Sun 12-02-1990 01:02:50 *┌───────────────────────────────────────────────────────────────────┐ *│@(F4) Removes Right Justification from line or block │ *└───────────────────────────────────────────────────────────────────┘ * Position cursor on first line to be un-justified, press @F4, then * cursor down to last line to be un-justified, and press <Enter>. * If cursor is between paragraphs, cursor is automatically placed on the * first word of the next paragraph. * @f4 macrobegin unmarkblock START: endline begline * Test if line not blank jtrue FIRSTWORD: * If not blank, goto FIRSTWORD wordright * If blank, goto first word jump START: * and check for blank line again FIRSTWORD: * shiftright wordright * Put cursor on start of first shiftleft cursorleft * word on line, gotocolumn "512" return * Get all line to un-justify markcolumn prevposition * Mark column at first word begline * Reposition screen jfalse NEXT: * If first word in col. 1, * test is false, go to NEXT prevposition * Otherwise, back to first word NEXT: pause * Pause to cursor to last line markcolumn * Mark end of block gotoblockbeg * Get to block begin FindReplace " " Return " " Return "LN" Return FindReplace " " Return " " Return "LN" Return FindReplace " " Return " " Return "LN" Return Unmarkblock * nextpara * makectrofscreen * * * 87 bytes Fri 12-07-1990 12:32:09 *┌───────────────────────────────────────────────────────────────────┐ *│ @(F5) Removes Right Justification from DOCUMENT │ *└───────────────────────────────────────────────────────────────────┘ * @f5 macrobegin begfile unmarkblock * START: * endline begline * Test if line not blank jtrue FIRSTWORD: * If so, goto FIRSTWORD wordright * If not, move to first word jump START: * and check for blank line again FIRSTWORD: * FIRSTWORD loop removes right * justification from paragraph begline shiftright wordright * Put cursor on start of first shiftleft cursorleft * word on line, markcolumn endpara * and start column mark gotocolumn "512" return * Be sure to get all para in block markcolumn * Mark para as block begline makebotofscreen FindReplace " " Return " " Return "LNB" Return FindReplace " " Return " " Return "LNB" Return FindReplace " " Return " " Return "LNB" Return Unmarkblock NextPara * Get to begin next paragraph jfalse FINISH: * No more para? go to FINISH jump FIRSTWORD: * and to last line FINISH: * No more paragraphs begfile * * 96 bytes Wed 12-05-1990 10:42:45 * ┌─────────────────────────────────────────────┐ * │@(F7) Deletes ALL BLANK lines in document │ * └─────────────────────────────────────────────┘ * @F7 macrobegin begfile * Go to bof CHK4BLANK: * endline begline * Check if line has text jtrue NOTBLANK: * If so, go to NOTBLANK delline * Or line is blank, delete it jtrue CHK4BLANK: * Go check next line NOTBLANK: *ELSE endpara * Move to pargraph end cursordown * Move down to next line jfalse END: * If on last line, END macro jump CHK4BLANK: * If not, check for more blank lines END: * begfile * Go to bof * * 23 bytes Thu 10-11-1990 20:59:17 * ┌────────────────────────────────────────────────────────────────┐ * │@(F8) Deletes all blank lines but single space in documnent │ * └────────────────────────────────────────────────────────────────┘ * Puts first non-blank line on top. * @F8 macrobegin begfile * Go to bof CHK4BLANK: * endline begline * Check if line has text jtrue NOTBLANK: * If so, go to NOTBLANK delline * Or line is blank, delete it jtrue CHK4BLANK: * Go check next line NOTBLANK: *ELSE endpara * Move to pargraph end cursordown * Move down to next line cursordown * Move down to next line jfalse END: * If on last line, END macro jump CHK4BLANK: * If not, check for more blank lines END: * begfile * Go to bof * * 24 bytes Thu 10-11-1990 21:12:50 * ============================================================================== * Date: 10-10-90 (11:44) Number: 10442 SemWare Support BBS * To: ALL Refer#: NONE * From: SAMMY MITCHELL Read: NO * Subj: MACROS Conf: (0) Main Board * ------------------------------------------------------------------------ * We (SemWare) have been asked on many occasions how to change the CR/LF * characters at EOF to something else. In most instances, the task that * the user wanted to accomplish could be done in another way. For * example, we've had many requests to convert a mailing list file to a * comma delimited file for import into a database. Here are some example * macros to make a comma delimited file, and convert a comma delimited * file back to its original format. These macros will have to be * compiled with Qmac, as they are too large for Qconfig. I do hope that * this helps someone! * * (Key assignements changed TH Wed 10-10-1990 ) * --------------------------------------------------------------------- * ^(F9_) Macro to make a comma delimited file from a file of the format: * --------------------------------------------------------------------- * record 1 * record 2 * record n * * Each group of name/address must be followed by at least one blank * line. ^F9 MacroBegin BegFile * make sure at top while1: BegLine EndLine jTrue while2: * break out if non empty line DelLine * delete the blank line CursorDown jFalse macroexit: * exit macro if eof CursorUp * back up to the line to test jump while1: * keep looping while blank * nonblank line found - see if next line is nonblank also while2: cursorDown jFalse macroexit: * exit macro if eof BegLine EndLine jFalse while1: * if blank line, start over CursorUp EndLine "," JoinLine * join the next line jump while2: * and keep on until blank macroexit: BegFile * show user bof * * 37 bytes Wed 10-10-1990 22:16:45 (line added TH) * --------------------------------------------------------------------- * ^(F10_) Macro to "break apart" a comma delimited file, as created from * the ^F9 macro above. * --------------------------------------------------------------------- ^f10 MacroBegin BegFile * start at bof find_first_comma: Find "," Return "" Return * find first comma jFalse macroexit: * exit if none makeline: UnMarkBlock DelCh * delete the ',' SplitLine * split the line CursorDown * next line BegLine * column 1 * remove leading blanks delete_blanks: UnMarkBlock DropAnchor Find " " Return "GL" Return * blank found? jFalse continue * no, continue DelCh * delete it jump delete_blanks: * and try again continue: UnMarkBlock MarkLine * look for next ,' on line Find "," Return "L" Return * jTrue makeline: * split if found UnMarkBlock AddLine * otherwise, add a blank line jump find_first_comma: * and look for another ',' macroexit: BegFile * show user bof * * 54 bytes Wed 10-10-1990 22:17:04 (line added TH) * * That's all, folks! * ┌───────────────────────────────────────────────────────────────────┐ * │^(b) Replace "period space" w/ "period space space" - PARAGRAPH │ * └───────────────────────────────────────────────────────────────────┘ * This macro was written by Tim Farley of SemWare. * * ========================================================================= * Date: 01-18-91 (13:59) Number: 3433 SemWare Support BBS * To: BOB LONG Refer#: 3430 * From: TIM FARLEY Read: YES * Subj: Legibility breaks Conf: (21) ILink * ------------------------------------------------------------------------ * BL>It had to do with retaining double spaces between sentences * BL>even when they fall at the ends of lines and then get moved when the * BL>paragraph is reformed. I reinstalled 2.1, choosing the option to * BL>retain trailing blanks, but QEdit still removes one blank. * BL> * BL>Is there a workaround? * * The only workaround I know for that one would be to encase * WrapPara in a macro, that would mark the entire paragraph as a * block, and do a global search and replace (limited to the block) * to change ". " to ". " to put the spaces back in. Kludgy, and * not perfect, but perhaps workable. * * Here's what it would look like: * * * * * WrapPara modification: retains double spacing after "." chars. * * ^b MacroBegin UnmarkBlock * we're going to be using blocks MarkCharacter WrapPara * Wrap paragraph & mark rest of it MarkCharacter GotoBlockBeg * Close mark & go to begin of it FindReplace ". " Return * Change period with single space ". " Return "LN" Return * to one with double space. JFalse end: * None? We're done... FindReplace ". " Return * Now fix any that ended up with 3 ". " Return "LN" Return * to have just two again. end: GotoBlockEnd UnmarkBlock * * 54 bytes Fri 01-18-1991 21:23:45 (line added TH January 18, 1991) * * As usual, remove the comments to the right, and reformat this all on one * line if you plan to put it in QCONFIG.DAT. * * --Tim Farley * ┌──────────────────────────────────────────────────────────────────┐ * │^(c) Replace "period space" w/ "period space space" - DOCUMENT │ * └──────────────────────────────────────────────────────────────────┘ * * Change "GN" to "G" for replacement with confirmation. * ^c MacroBegin FindReplace ". " Return ". " Return "GN" Return FindReplace ". " Return ". " Return "GN" Return * *44 bytes Sat 01-19-1991 11:18:17 * (VERSION) HISTORY: * * 1.1 - added Alt_6,7 & 8 to format QMAC txtfiles * 1.1a- modified Alt_8,9 & 10 to get off screen-text in block * 1.2 - added Alt_5 to format entire document QUICKLY keeping * indented paragraph positions in place * Alt_4 to format entire document keeping indented * paragraph positions in place * Alt_3 to format paragraph only * - modified other macros to handle line widths to 512 * 1.2a- modified this documentation * 1.2b- Added @2 to make single column txtfile from * QMAC txtfile, v1.2b * 1.2c- changed 160 in @9 to 512 * 1.2d- @2 removed, now in COLUMN10.ZIP * - @4 removed * - added killfile @0 * - changed macro comments * 1.3 - added Alt_1 & 2 to put asterisk and space in front * of blocks and paragraphs * 1.4 - added Alt_4 to remove asterisk and space in column 1 * 1.5 - added Alt_t (from Tim Farley) to do the same as Alt_1 * - changed key assignments * - added Alt_2 to remove asterisks in front of blocks * - shortened Alt_1 to 32 bytes * 1.5a- modified Alt_1 to handle blocks with blank lines * - changed "60" in Ctl_0 to "69" * - Alt_t modified by Tim Farley to correctly handle column * and single line blocks. * 1.5b- corrected documentation * 1.5c- Changed file name REFORMxx to RFRMxx. * 1.6 - Added @5. * - Changed ^5 and ^9 right margin to 69. * - Shortened ^8,9 and 0. * 1.7 - Added @h to help locate items or macros from Index. * - Added @8 to have sentences end with "period space space" * - Added ^7 to Formats Message Reader Paragraph (Tim Farley) 132 <-new * 1.8 - Added @9 and @0 to count number of words in a document. * - Added @n to count number of characters in a document. * - Added @F3 and @F4 to delete blank lines in documents. * - Added ^1/^2 to make/break-apart a comma delimited file. * (Written by Sammy Mitchell, SemWare) * 1.9 - Shortened and removed redundant commands from @0. * 2.0 - Added @F1 and @F2 to right justify documents. * - Added @F4 and @F5 to remove right justification. * - Modified documentation and added START.BAT. * - Changed REFORM file names to RFRM. * - Changed some key assignments of macros in previous version. * 2.1 - Modified documentation (@f4 and @f5). * 2.2 - Corrected @h Index Use instructions. * - Added ^b to change ". " to ". " in PARAGRAPHS. * - Modidfied ^c to change ". " to ". " in DOCUMENTS. * 2.3 - Modified @F1 to handle file names with no extension & * shortened 7 bytes. * Tom Hogshead Fri 02-15-1991